unit JATUIF_Empty_Component;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, JATUIF_Component, JATUIF_Driver_Screen;

Type

    { TMyComponent }

    TMyComponent = class(TComponent)
      Protected
        Procedure _OnKeyPress(Key:Char); override;
        Procedure _OnMouseEnter; override;
        Procedure _OnMouseLeave; override;
        Procedure _OnClick; override;
        Procedure _OnLoseFocus; override;
        Procedure Draw; override;
      Private
        { Private Properties & Methods }
      Public
        Constructor Create(Parent:TScreen; X1,Y1,X2,Y2:Integer);
    end;

implementation

{ TMyComponent }

Constructor TMyComponent.Create(Parent: TScreen; X1, Y1, X2, Y2: Integer);
begin
     inherited Create(Parent, X1, Y1, X2, Y2);
end;

procedure TMyComponent.Draw;
begin
     { Draw Component }
end;

{ Callback Events }

procedure TMyComponent._OnKeyPress(Key: Char);
begin
     inherited _OnKeyPress(Key);
end;

procedure TMyComponent._OnMouseEnter;
begin
     inherited _OnMouseEnter;
end;

procedure TMyComponent._OnMouseLeave;
begin
     inherited _OnMouseLeave;
end;

procedure TMyComponent._OnClick;
begin
     inherited _OnClick;
end;

procedure TMyComponent._OnLoseFocus;
begin
     inherited _OnLoseFocus;
end;

end.

